home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abh.d64 / video library (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  479 lines
  1. 1 POKE775,81:POKE808,225:REM"[141][147]
  2. 10 [151]53280,0:[151]53281,0:[153]"LOAD":[143]"GOSUBLOAD
  3. 11 GOSUB60000:PRINT"[159]":REM"[141][147]
  4. 12 A$[178]"SEBASTIAN KULMA":TA[178]19:[141]100:[143]"GOSUBLOAD
  5. 13 GOSUB60000:PRINT"[156]":REM"[141][147]
  6. 14 A$[178]"PRESENTS:":TA[178]19:[141]100:[143]"GOSUBLOAD
  7. 15 GOSUB60000:PRINT"":REM"[141][147]
  8. 16 A$[178]"THE VIDEO LIBRARY":TA[178]19:[141]100:[141]17:[137]38:[143]"GOSUBLOAD
  9. 17 GOSUB60000:PRINT"":REM"[141][147]
  10. 18 [153][163]13)"TOTOTOTOTOTOTOTOTOTOTOTOTOTO":[143]"GOSUBLOAD
  11. 19 PRINTTAB(12)"[159][172]  HIT RETURN  [146]":REM"[141][147]
  12. 20 [153][163]12)"OPENLOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW":[143]"GOSUBLOAD
  13. 21 GETR$:IFR$=CHR$(13)THENRETURN:REM"[141][147]
  14. 22 [137]21:[143]"GOSUBLOAD
  15. 23 REM SEARCH:REM"[141][147]
  16. 24 [153]"LOADVERIFY":[143]"GOSUBLOAD
  17. 26 A$="<1> [151] SEARCH IN A FILE   ":ZZ=12:GOSUB800:REM"[141][147]
  18. 28 A$[178]"<2> POKE SEARCH IN A FIELD    ":ZZ[178]12:[141]800:Z2[178]1:[143]"GOSUBLOAD
  19. 29 A$="<B> [151] BACK     ":ZZ=20:GOSUB800:REM"[141][147]
  20. 30 [161]T$:[143]"GOSUBLOAD
  21. 31 IFT$="1"THEN35:REM"[141][147]
  22. 32 [139]T$[178]"2"[167]36:[143]"GOSUBLOAD
  23. 33 IFT$="B"THEN700:REM"[141][147]
  24. 34 [137]30:[143]"GOSUBLOAD
  25. 35 ZY=1:GOSUB700:GOSUB57500:GOTO14000:REM"[141][147]
  26. 36 ZY[178]1:[141]700:[141]57500:[137]45000:[143]"GOSUBLOAD
  27. 37 RUN:REM"[141][147]
  28. 38 [153]"LOADVERIFY DO YOU WANT SEE HOW TO USE THE PROGRAM?":[153][163]17)"(Y/N)":[143]"GOSUBLOAD
  29. 39 GETT$:IFT$="Y"THEN50:REM"[141][147]
  30. 40 [139]T$[178]"N"[167]110:[143]"GOSUBLOAD
  31. 41 GOTO39:REM"[141][147]
  32. 50 [153]"LOAD";:[143]"GOSUBLOAD
  33. 55 PRINT"[149] MOVIE NAME":REM"[141][147]
  34. 56 [153]:[143]"GOSUBLOAD
  35. 57 PRINT"[159] SPACEBALLS[149][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":REM"[141][147]
  36. 58 [153]" TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO":[143]"GOSUBLOAD
  37. 59 PRINT:REM"[141][147]
  38. 60 [153] " CASSETTE NUMBER IS OPEN8VERIFYTOTOTO":[143]"GOSUBLOAD
  39. 61 PRINT:REM"[141][147]
  40. 62 [153] " MOVIE TYPE ISOPEN COMEDYVERIFYTOTOTOTOTOTOTO":[143]"GOSUBLOAD
  41. 63 PRINT:REM"[141][147]
  42. 64 [153] " POSITION IS OPEN1STVERIFY ON THE TAPE":[143]"GOSUBLOAD
  43. 65 PRINT:REM"[141][147]
  44. 66 [153] " COUNTER NUMBER IS OPEN0000":[143]"GOSUBLOAD
  45. 67 PRINT" THIS IS THE WAY YOU CAN USE THE PROGRAM":REM"[141][147]
  46. 68 [153]" OPENTHE REST IS VERY EASY. JUST FALLOW THE":[143]"GOSUBLOAD
  47. 69 PRINT" [159]INSTRUCTIONS. HAVE FUN. :)[145][145]":REM"[141][147]
  48. 70 [141]17:[137]110:[143]"GOSUBLOAD
  49. 98 END:REM"[141][147]
  50. 99 [137]110:[143]"GOSUBLOAD
  51. 100 PRINT"":REM"[141][147]
  52. 101 X[178][195](A$):[139]((X[173]2)[179][177][181]((X[173]2)))[167]A$[178](" "[170]A$):[137]101:[143]"GOSUBLOAD
  53. 102 I=1:FORI=ITO(X/2):PRINTTAB((TA-I)):PRINTLEFT$(A$,I);:REM"[141][147]
  54. 103 [153][201](A$,I):[153]"ON";:[129]X[178]1[164]2:[130]:[130]:[142]:[143]"GOSUBLOAD
  55. 110 V1$="VIDEO 1":REM"[141][147]
  56. 112 V2$[178]"VIDEO 2":[143]"GOSUBLOAD
  57. 120 RL=97:REM"[141][147]
  58. 125 KL[178]33:[143]"GOSUBLOAD
  59. 127 KF=1:REM"[141][147]
  60. 130 T[178]6:[143]"GOSUBLOAD
  61. 135 AM=FRE(0)-(FRE(0)<0)*256*256:MAXK=INT((AM-2048)/(KL+4)):REM"[141][147]
  62. 145 [143]:[143]"GOSUBLOAD
  63. 160 SW=38:REM"[141][147]
  64. 170 [141]58000:[143]"GOSUBLOAD
  65. 171 BK$=CHR$(157):REM"[141][147]
  66. 172 CR$[178][199](13):[143]"GOSUBLOAD
  67. 173 BC$=CHR$(157):REM"[141][147]
  68. 175 [134] A$(MAXK):[143]"GOSUBLOAD
  69. 180 CL$=CHR$(147):REM"[141][147]
  70. 185 [134] F$(T),F(T):[143]"GOSUBLOAD
  71. 190 D$=CHR$(94):FORX=1TOKL:D$=D$+" ":NEXTX:REM"[141][147]
  72. 205 [150] [165]H(X)[178][181](X[173]256):[150] [165]L(X)[178]X[171][165]H(X)[172]256:[143]"GOSUBLOAD
  73. 207 CLOSE3:OPEN 3,8,15:REM"[141][147]
  74. 210 [160]1:[159] 1,8,2,V1$[170]",L,"[170][199](RL):[143]"GOSUBLOAD
  75. 215 CLOSE1:REM"[141][147]
  76. 220 [160]2:[159] 2,8,2,V2$[170]",L,"[170][199](KL):[143]"GOSUBLOAD
  77. 222 FORX=1TOMAXK:REM"[141][147]
  78. 225 HX[178][165]H(X):LX[178][165]L(X):[152]3,"P"[199](2)[199](LX)[199](HX)[199](1):[143]"GOSUBLOAD
  79. 228 INPUT#3,E,E$,TT,SS:IFE=50THEN240:REM"[141][147]
  80. 230 [132]2,A$(X):[139]A$(X)[178][199](255)[167]240:[143]"GOSUBLOAD
  81. 235 NEXTX:REM"[141][147]
  82. 240 EF[178]X[171]1:[143]"GOSUBLOAD
  83. 245 A$(X)="":REM"[141][147]
  84. 250 [160]2:[143]"GOSUBLOAD
  85. 300 PRINTCL$;:REM"[141][147]
  86. 301 [134] CX( 6 ),CY( 6 ),FL( 6 ),TY$( 6 ):[143]"GOSUBLOAD
  87. 302 FL(1)=33:CY(1)=7:CX(1)=2:TY$(1)="A":REM"[141][147]
  88. 303 FL(2)[178]33:CY(2)[178]8:CX(2)[178]2:TY$(2)[178]"A":[143]"GOSUBLOAD
  89. 304 FL(3)=4:CY(3)=10:CX(3)=21:TY$(3)="N":REM"[141][147]
  90. 305 FL(4)[178]13:CY(4)[178]12:CX(4)[178]16:TY$(4)[178]"A":[143]"GOSUBLOAD
  91. 306 FL(5)=3:CY(5)=14:CX(5)=14:TY$(5)="A":REM"[141][147]
  92. 307 FL(6)[178]4:CY(6)[178]16:CX(6)[178]20:TY$(6)[178]"N":[143]"GOSUBLOAD
  93. 700 PRINT"[147]";:REM"[141][147]
  94. 702 [153]"OPEN              VIDEO LIBRARY":[143]"GOSUBLOAD
  95. 703 PRINT:REM"[141][147]
  96. 704 [153]:[143]"GOSUBLOAD
  97. 705 PRINT"[149] MOVIE NAME":REM"[141][147]
  98. 706 [153]:[143]"GOSUBLOAD
  99. 707 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":REM"[141][147]
  100. 708 [153]" TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO":[143]"GOSUBLOAD
  101. 709 PRINT:REM"[141][147]
  102. 710 [153] " CASSETTE NUMBER IS TOTOTOTO":[143]"GOSUBLOAD
  103. 711 PRINT:REM"[141][147]
  104. 712 [153] " MOVIE TYPE IS TOTOTOTOTOTOTOTOTOTOTOTOTO":[143]"GOSUBLOAD
  105. 713 PRINT:REM"[141][147]
  106. 714 [153] " POSITION IS TOTOTO ON THE TAPE":[143]"GOSUBLOAD
  107. 715 PRINT:REM"[141][147]
  108. 716 [153] " COUNTER NUMBER IS TOTOTOTO":[143]"GOSUBLOAD
  109. 717 IFZY=1THENZY=0:RETURN:REM"[141][147]
  110. 718 [137]4000:[143]"GOSUBLOAD
  111. 800 FORZ=ZZTO1STEP-1:PRINTTAB(Z);A$"[145]":FORG=1TO25:NEXT:NEXT:PRINT"":RETURN:REM"[141][147]
  112. 4000 [143] ...BEGIN MAINLINE:[143]"GOSUBLOAD
  113. 4002 REM:REM"[141][147]
  114. 4003 UPDATE$[178]"":[143]"GOSUBLOAD
  115. 4004 FORX=1TOT:F$(X)="":F(X)=0:NEXTX:REM ...CLEAR FIELDS:REM"[141][147]
  116. 4005 [141]57500:[153]"<A>POKE ADD A MOVIE  <G>POKE GET A MOVIE":[143]"GOSUBLOAD
  117. 4006 PRINT"<S>[151] SEARCH       <E>[151] END ";:REM"[141][147]
  118. 4010 TY$[178]"A":FL[178]1:[143]"GOSUBLOAD
  119. 4015 GOSUB21000:REM"[141][147]
  120. 4020 [139]T$[178]"A"[167]4100:[143]"GOSUBLOAD
  121. 4025 IFT$="G"THENUPDATE$="YES":GOTO15000:REM"[141][147]
  122. 4030 [139]T$[178]"E"[167]40000:[143]"GOSUBLOAD
  123. 4035 IFT$<>"S"THEN4040:REM"[141][147]
  124. 4036 [141]57500:[137]24:[143]"GOSUBLOAD
  125. 4040 REM:REM"[141][147]
  126. 4050 [137]700:[143]"GOSUBLOAD
  127. 4099 REM:REM"[141][147]
  128. 4100 [143] ...START OF INPUT:[143]"GOSUBLOAD
  129. 4101 REM:REM"[141][147]
  130. 4103 [143]:[143]"GOSUBLOAD
  131. 4104 REM:REM"[141][147]
  132. 4105 [143] FIELD NUMBER  1  IS ENTER MOVIE NAME:[143]"GOSUBLOAD
  133. 4110 REM FIELD LENGTH IS  33 :REM"[141][147]
  134. 4115 [143] FIELD TYPE IS A:[143]"GOSUBLOAD
  135. 4120 CY= 6 :CX= 1 :GOSUB57000:REM"[141][147]
  136. 4121 [129]X[178]1[164] 33 :[153][199](46);:[130]X:CY[178] 6 :[143]"GOSUBLOAD
  137. 4122 CX= 1 :GOSUB57000:REM"[141][147]
  138. 4125 FL[178]  33 :[143]"GOSUBLOAD
  139. 4130 TY$= "A":REM"[141][147]
  140. 4135 [141] 21000:[143]"GOSUBLOAD
  141. 4140 IF LEN(T$)=0 THEN  4155 :REM"[141][147]
  142. 4142 [139] [198](T$)[178]60 [167] 700:[143]"GOSUBLOAD
  143. 4145 F$( 1 ) = T$:REM"[141][147]
  144. 4155 [139][200](F$( 1 ),1)[178][199](32)[167]F$( 1 )[178][202](F$( 1 ),2):[137]  4155 :[143]"GOSUBLOAD
  145. 4160 F$( 1 )=F$( 1 )+MID$(BS$,1, 33 -LEN(F$( 1 ))):F( 1 )=VAL(F$( 1 )):REM"[141][147]
  146. 4165 K$[178]F$( 1 ):[143]"GOSUBLOAD
  147. 4170 CY= 6 :CX= 1 :GOSUB57000:PRINT F$( 1 );:REM"[141][147]
  148. 4203 [143]:[143]"GOSUBLOAD
  149. 4204 REM:REM"[141][147]
  150. 4205 [143] FIELD NUMBER  2  IS ENTER MOVIE NAME:[143]"GOSUBLOAD
  151. 4210 REM FIELD LENGTH IS  33 :REM"[141][147]
  152. 4215 [143] FIELD TYPE IS A:[143]"GOSUBLOAD
  153. 4220 CY= 7 :CX= 1 :GOSUB57000:REM"[141][147]
  154. 4221 [129]X[178]1[164] 33 :[153][199](46);:[130]X:CY[178] 7 :[143]"GOSUBLOAD
  155. 4222 CX= 1 :GOSUB57000:REM"[141][147]
  156. 4225 FL[178]  33 :[143]"GOSUBLOAD
  157. 4230 TY$= "A":REM"[141][147]
  158. 4235 [141] 21000:[143]"GOSUBLOAD
  159. 4240 IF LEN(T$)=0 THEN  4255 :REM"[141][147]
  160. 4242 [139] [198](T$)[178]60 [167]  4105 :[143]"GOSUBLOAD
  161. 4245 F$( 2 ) = T$:REM"[141][147]
  162. 4255 [139][200](F$( 2 ),1)[178][199](32)[167]F$( 2 )[178][202](F$( 2 ),2):[137]  4255 :[143]"GOSUBLOAD
  163. 4260 F$( 2 )=F$( 2 )+MID$(BS$,1, 33 -LEN(F$( 2 ))):F( 2 )=VAL(F$( 2 )):REM"[141][147]
  164. 4270 CY[178] 7 :CX[178] 1 :[141]57000:[153] F$( 2 );:[143]"GOSUBLOAD
  165. 4303 REM:REM"[141][147]
  166. 4304 [143]:[143]"GOSUBLOAD
  167. 4305 REM FIELD NUMBER  3  IS ENTER CASSETTE NUMBER:REM"[141][147]
  168. 4310 [143] FIELD LENGTH IS  4 :[143]"GOSUBLOAD
  169. 4315 REM FIELD TYPE IS N:REM"[141][147]
  170. 4320 CY[178] 9 :CX[178] 20 :[141]57000:[143]"GOSUBLOAD
  171. 4321 FORX=1TO 4 :PRINTCHR$(46);:NEXTX:CY= 9 :REM"[141][147]
  172. 4322 CX[178] 20 :[141]57000:[143]"GOSUBLOAD
  173. 4325 FL=  4 :REM"[141][147]
  174. 4330 TY$[178] "N":[143]"GOSUBLOAD
  175. 4335 GOSUB 21000:REM"[141][147]
  176. 4340 [139] [195](T$)[178]0 [167]  4355 :[143]"GOSUBLOAD
  177. 4342 IF ASC(T$)=60 THEN  4205 :REM"[141][147]
  178. 4343 [141] 23000: [143] .. NUMERIC CHECK ...:[143]"GOSUBLOAD
  179. 4344 IF N=0 THEN  4305 :REM"[141][147]
  180. 4345 F$( 3 ) [178] T$:[143]"GOSUBLOAD
  181. 4353 F( 3 )=VAL(F$( 3 )):REM"[141][147]
  182. 4355 [139][200](F$( 3 ),1)[178][199](32)[167]F$( 3 )[178][202](F$( 3 ),2):[137]  4355 :[143]"GOSUBLOAD
  183. 4356 F$( 3 )=MID$(F$( 3 ),1, 4 ):REM"[141][147]
  184. 4360 F$( 3 )[178]F$( 3 )[170][202](BS$,1, 4 [171][195](F$( 3 ))):F( 3 )[178][197](F$( 3 )):[143]"GOSUBLOAD
  185. 4370 CY= 9 :CX= 20 :GOSUB57000:PRINT F$( 3 );:REM"[141][147]
  186. 4403 [143]:[143]"GOSUBLOAD
  187. 4404 REM:REM"[141][147]
  188. 4405 [143] FIELD NUMBER  4  IS ENTER MOVIE TYPE:[143]"GOSUBLOAD
  189. 4410 REM FIELD LENGTH IS  13 :REM"[141][147]
  190. 4415 [143] FIELD TYPE IS A:[143]"GOSUBLOAD
  191. 4420 CY= 11 :CX= 15 :GOSUB57000:REM"[141][147]
  192. 4421 [129]X[178]1[164] 13 :[153][199](46);:[130]X:CY[178] 11 :[143]"GOSUBLOAD
  193. 4422 CX= 15 :GOSUB57000:REM"[141][147]
  194. 4425 FL[178]  13 :[143]"GOSUBLOAD
  195. 4430 TY$= "A":REM"[141][147]
  196. 4435 [141] 21000:[143]"GOSUBLOAD
  197. 4440 IF LEN(T$)=0 THEN  4455 :REM"[141][147]
  198. 4442 [139] [198](T$)[178]60 [167]  4305 :[143]"GOSUBLOAD
  199. 4445 F$( 4 ) = T$:REM"[141][147]
  200. 4455 [139][200](F$( 4 ),1)[178][199](32)[167]F$( 4 )[178][202](F$( 4 ),2):[137]  4455 :[143]"GOSUBLOAD
  201. 4460 F$( 4 )=F$( 4 )+MID$(BS$,1, 13 -LEN(F$( 4 ))):F( 4 )=VAL(F$( 4 )):REM"[141][147]
  202. 4470 CY[178] 11 :CX[178] 15 :[141]57000:[153] F$( 4 );:[143]"GOSUBLOAD
  203. 4503 REM:REM"[141][147]
  204. 4504 [143]:[143]"GOSUBLOAD
  205. 4505 REM FIELD NUMBER  5  IS EX  1ST,2ND OR 3RD:REM"[141][147]
  206. 4510 [143] FIELD LENGTH IS  3 :[143]"GOSUBLOAD
  207. 4515 REM FIELD TYPE IS A:REM"[141][147]
  208. 4520 CY[178] 13 :CX[178] 13 :[141]57000:[143]"GOSUBLOAD
  209. 4521 FORX=1TO 3 :PRINTCHR$(46);:NEXTX:CY= 13 :REM"[141][147]
  210. 4522 CX[178] 13 :[141]57000:[143]"GOSUBLOAD
  211. 4525 FL=  3 :REM"[141][147]
  212. 4530 TY$[178] "A":[143]"GOSUBLOAD
  213. 4535 GOSUB 21000:REM"[141][147]
  214. 4540 [139] [195](T$)[178]0 [167]  4555 :[143]"GOSUBLOAD
  215. 4542 IF ASC(T$)=60 THEN  4405 :REM"[141][147]
  216. 4545 F$( 5 ) [178] T$:[143]"GOSUBLOAD
  217. 4555 IFLEFT$(F$( 5 ),1)=CHR$(32)THENF$( 5 )=MID$(F$( 5 ),2):GOTO  4555 :REM"[141][147]
  218. 4560 F$( 5 )[178]F$( 5 )[170][202](BS$,1, 3 [171][195](F$( 5 ))):F( 5 )[178][197](F$( 5 )):[143]"GOSUBLOAD
  219. 4570 CY= 13 :CX= 13 :GOSUB57000:PRINT F$( 5 );:REM"[141][147]
  220. 4603 [143]:[143]"GOSUBLOAD
  221. 4604 REM:REM"[141][147]
  222. 4605 [143] FIELD NUMBER  6  IS ENTER COUNTER NUMBER:[143]"GOSUBLOAD
  223. 4610 REM FIELD LENGTH IS  4 :REM"[141][147]
  224. 4615 [143] FIELD TYPE IS N:[143]"GOSUBLOAD
  225. 4620 CY= 15 :CX= 19 :GOSUB57000:REM"[141][147]
  226. 4621 [129]X[178]1[164] 4 :[153][199](46);:[130]X:CY[178] 15 :[143]"GOSUBLOAD
  227. 4622 CX= 19 :GOSUB57000:REM"[141][147]
  228. 4625 FL[178]  4 :[143]"GOSUBLOAD
  229. 4630 TY$= "N":REM"[141][147]
  230. 4635 [141] 21000:[143]"GOSUBLOAD
  231. 4640 IF LEN(T$)=0 THEN  4655 :REM"[141][147]
  232. 4642 [139] [198](T$)[178]60 [167]  4505 :[143]"GOSUBLOAD
  233. 4643 GOSUB 23000: REM .. NUMERIC CHECK ...:REM"[141][147]
  234. 4644 [139] N[178]0 [167]  4605 :[143]"GOSUBLOAD
  235. 4645 F$( 6 ) = T$:REM"[141][147]
  236. 4653 F( 6 )[178][197](F$( 6 )):[143]"GOSUBLOAD
  237. 4655 IFLEFT$(F$( 6 ),1)=CHR$(32)THENF$( 6 )=MID$(F$( 6 ),2):GOTO  4655 :REM"[141][147]
  238. 4656 F$( 6 )[178][202](F$( 6 ),1, 4 ):[143]"GOSUBLOAD
  239. 4660 F$( 6 )=F$( 6 )+MID$(BS$,1, 4 -LEN(F$( 6 ))):F( 6 )=VAL(F$( 6 )):REM"[141][147]
  240. 4670 CY[178] 15 :CX[178] 19 :[141]57000:[153] F$( 6 );:[143]"GOSUBLOAD
  241. 5000 REM:REM"[141][147]
  242. 10000 [143] ...IF UPDATE SWITCH IS YES THEN SKIP NEXT SECTION:[143]"GOSUBLOAD
  243. 10005 IF UPDATE$="YES" THEN X=LR:GOTO12616:REM"[141][147]
  244. 12000 [143]:[143]"GOSUBLOAD
  245. 12010 REM ...RANDOM WRITE:REM"[141][147]
  246. 12500 [143] ...LOOK FOR SPACE TO WRITE RECORD:[143]"GOSUBLOAD
  247. 12505 FORX=1TOEF:REM"[141][147]
  248. 12510 [139]A$(X)[178]""[167]12616:[143]"GOSUBLOAD
  249. 12515 NEXTX:REM"[141][147]
  250. 12520 EF[178]X:[143]"GOSUBLOAD
  251. 12615 REM ...WRITE KEY:REM"[141][147]
  252. 12616 [159] 2,8,2,V2$:[143]"GOSUBLOAD
  253. 12617 HX=FNH(X):LX=FNL(X):A$(X)=K$:PRINT#3,"P"CHR$(2)CHR$(LX)CHR$(HX)CHR$(1):REM"[141][147]
  254. 12620 [139]K$[178]" "[167]A$(X)[178]"":[143]"GOSUBLOAD
  255. 12625 PRINT#2,K$;:REM"[141][147]
  256. 12630 [160]2:[143]"GOSUBLOAD
  257. 12700 REM ...WRITE TO MASTER FILE:REM"[141][147]
  258. 12703 F$[178]"":[143]"GOSUBLOAD
  259. 12705 LR=X:REM"[141][147]
  260. 12707 [159] 1,8,2,V1$:[143]"GOSUBLOAD
  261. 12710 HO=HX:LO=LX:REM"[141][147]
  262. 12715 [129]X[178]1[164]T:[139]TY$(X)[178]"Z"[167]12730:[143]"GOSUBLOAD
  263. 12720 F$=F$+F$(X):REM"[141][147]
  264. 12730 [130]X:[143]"GOSUBLOAD
  265. 12735 F1$=MID$(F$,1,78):F2$=MID$(F$,79,78):F3$=MID$(F$,157,78):F4$=MID$(F$,235):REM"[141][147]
  266. 12750 [152]3,"P"[199](2)[199](LO)[199](HO)[199](1):[143]"GOSUBLOAD
  267. 12755 PRINT#1,"*"F1$CR$"*"F2$CR$"*"F3$CR$"*"F4$;:REM"[141][147]
  268. 12757 [132]3,E,E$,TT,SS:[143]"GOSUBLOAD
  269. 12760 CLOSE1:REM"[141][147]
  270. 12800 [137]700:[143]"GOSUBLOAD
  271. 14000 REM:REM"[141][147]
  272. 14002 X[178]0:[143]"GOSUBLOAD
  273. 14005 UPDATE$="S":REM ...SET UPDATE FLAG TO SEARCH:REM"[141][147]
  274. 14010 [141]57500:[153]"SEARCH FOR? - ";:[143]"GOSUBLOAD
  275. 14020 FL=30:REM ...MAXIMUM LENGTH OF SEARCH STRING:REM"[141][147]
  276. 14030 TY$[178]"A":[143] ...SEARCH STRING IS ALPHA-NUMERIC:[143]"GOSUBLOAD
  277. 14035 GOSUB21000:REM"[141][147]
  278. 14037 Q$[178]T$:[143]"GOSUBLOAD
  279. 14038 GOSUB57500:PRINT"[149]PRESS ANY KEY TO STOP SEARCH";:FL=1:TY$="A":REM"[141][147]
  280. 14040 LQ$[178][200](Q$,1):LQ[178][195](Q$):[143]"GOSUBLOAD
  281. 14042 OPEN 1,8,2,V1$:REM"[141][147]
  282. 14045 [129]LR[178]1[164]EF:[143]"GOSUBLOAD
  283. 14050 INPUT#1,F1$,F2$,F3$,F4$:GETA$:IFA$<>""THENCLOSE1:GOTO700:REM"[141][147]
  284. 14060 [139]A$(LR)[178]""[167]14093:[143]"GOSUBLOAD
  285. 14070 F$=MID$(F1$,2)+MID$(F2$,2)+MID$(F3$,2)+MID$(F4$,2):FP=1:FORZ=1TOT:REM"[141][147]
  286. 14080 [129]Y[178]FP[164]FP[170]FL(Z)[171]LQ:[139][202](F$,Y,1)[178]LQ$[167][139][202](F$,Y,LQ)[178]Q$[167]14100:[143]"GOSUBLOAD
  287. 14085 NEXTY:FP=FP+FL(Z):NEXTZ:REM"[141][147]
  288. 14093 [130]LR:[143]"GOSUBLOAD
  289. 14095 GOSUB57500:PRINT"NOT IN FILE[149]":GOSUB60000:CLOSE1:GOTO700:REM"[141][147]
  290. 14100 [141]15390:[143]"GOSUBLOAD
  291. 14200 GOSUB57500:PRINT"<N>[151] NEXT  <S>[151] STOP - ";:REM"[141][147]
  292. 14210 TY$[178]"A":FL[178]1:[141]21000:[143]"GOSUBLOAD
  293. 14220 IF T$="N"THEN14093:REM"[141][147]
  294. 14230 [139] T$[178]"S"[167][160]1:[137]700:[143]"GOSUBLOAD
  295. 14240 GOTO14200:REM"[141][147]
  296. 14300 [143]:[143]"GOSUBLOAD
  297. 15000 REM:REM"[141][147]
  298. 15002 [143] ...GET RECORD:[143]"GOSUBLOAD
  299. 15003 REM:REM"[141][147]
  300. 15060 FL[178]FL(KF):[143]"GOSUBLOAD
  301. 15065 CX=CX(KF)-1:CY=CY(KF)-1:GOSUB57000:REM"[141][147]
  302. 15070 TY$[178]"A":[143]"GOSUBLOAD
  303. 15080 GOSUB 21000:REM"[141][147]
  304. 15110 [139] [195](T$)[178]0 [167]700:[143]"GOSUBLOAD
  305. 15120 IFZ2$(KF)="N"THENGOSUB23000:IFN=0THEN15000:REM"[141][147]
  306. 15200 K$[178]T$:[143]"GOSUBLOAD
  307. 15210 K$=K$+MID$(BS$,1,FL-LEN(K$)):REM"[141][147]
  308. 15300 [129] X[178]1[164]EF:[143]"GOSUBLOAD
  309. 15310 IFA$(X)=K$THEN15340:REM"[141][147]
  310. 15315 [130]X:[143]"GOSUBLOAD
  311. 15320 GOSUB57500:PRINT"RECORD NOT IN FILE[149]";:GOSUB60000:GOTO700:REM"[141][147]
  312. 15340 LR[178]X:[143]"GOSUBLOAD
  313. 15345 HO=FNH(LR):LO=FNL(LR):REM"[141][147]
  314. 15353 [159] 1,8,2,V1$:[143]"GOSUBLOAD
  315. 15365 PRINT#3,"P"CHR$(2)CHR$(LO)CHR$(HO)CHR$(1):REM"[141][147]
  316. 15370 [132]1,F1$,F2$,F3$,F4$:[143]"GOSUBLOAD
  317. 15380 F$=MID$(F1$,2)+MID$(F2$,2)+MID$(F3$,2)+MID$(F4$,2):REM"[141][147]
  318. 15385 [160]1:[143]"GOSUBLOAD
  319. 15390 REM PRINT RECORD:REM"[141][147]
  320. 15400 FP[178]1:[143]"GOSUBLOAD
  321. 15410 FORZ=1TOT:IFTY$(Z)="Z"THEN15440:REM"[141][147]
  322. 15420 F$(Z)[178][202](F$,FP,FL(Z)):FP[178]FP[170]FL(Z):[143]"GOSUBLOAD
  323. 15440 NEXTZ:REM"[141][147]
  324. 17009 F( 3 )[178][197](F$( 3 )):[143]"GOSUBLOAD
  325. 17010 Z= 3 :ZZ= 0 :GOSUB 54000:REM"[141][147]
  326. 17018 F( 6 )[178][197](F$( 6 )):[143]"GOSUBLOAD
  327. 17019 Z= 6 :ZZ= 0 :GOSUB 54000:REM"[141][147]
  328. 17502 CY[178] 6 :CX[178] 1 :[141]57000:[153]F$( 1 );:[143]"GOSUBLOAD
  329. 17504 CY= 7 :CX= 1 :GOSUB57000:PRINTF$( 2 );:REM"[141][147]
  330. 17506 CY[178] 9 :CX[178] 20 :[141]57000:[153]F$( 3 );:[143]"GOSUBLOAD
  331. 17508 CY= 11 :CX= 15 :GOSUB57000:PRINTF$( 4 );:REM"[141][147]
  332. 17510 CY[178] 13 :CX[178] 13 :[141]57000:[153]F$( 5 );:[143]"GOSUBLOAD
  333. 17512 CY= 15 :CX= 19 :GOSUB57000:PRINTF$( 6 );:REM"[141][147]
  334. 18200 [139]UPDATE$[178]"S"[167][142]:[143]"GOSUBLOAD
  335. 18500 GOSUB57500:PRINT"<C>[151] CHANGE  <N>[151] NEXT  <D>[151] DELETE - ";:REM"[141][147]
  336. 18510 FL[178]1:[143]"GOSUBLOAD
  337. 18520 TY$="A":REM"[141][147]
  338. 18530 [141]21000:[143]"GOSUBLOAD
  339. 18550 IFT$="C"THEN4100:REM"[141][147]
  340. 18555 [139]T$[178]"N"[167]15315:[143]"GOSUBLOAD
  341. 18557 IFT$="D"THEN19000:REM"[141][147]
  342. 18560 [137]700:[143]"GOSUBLOAD
  343. 19000 REM ...DELETE RECORD:REM"[141][147]
  344. 19005 [141]57500:[153]"OPENARE YOU SURE? (Y/N) - VERIFY";:FL[178]1:[141]21000:[143]"GOSUBLOAD
  345. 19006 IFT$="Y"THEN19010:REM"[141][147]
  346. 19007 [139]T$[178]"N"[167]4000:[143]"GOSUBLOAD
  347. 19008 GOTO19005:REM"[141][147]
  348. 19010 K$[178]" ":[143] ...BLANK KEY:[143]"GOSUBLOAD
  349. 19020 FORZ=1TOT:F$(Z)=" ":NEXTZ:REM"[141][147]
  350. 19030 [137]12616 :[143] ...GOTO KEY AND MASTER WRITE ROUTINE:[143]"GOSUBLOAD
  351. 21000 REM ...ALPHA NUMERIC KEYBOARD SCAN:REM"[141][147]
  352. 21005 T$[178]"":[143]"GOSUBLOAD
  353. 21015 GETA$:PRINT"_[151]"CHR$(157)CHR$(32)CHR$(157);:REM"[141][147]
  354. 21020 [143]:[143]"GOSUBLOAD
  355. 21030 IFA$=""THEN21015:REM"[141][147]
  356. 21040 [139]A$[178]CR$[167]21300:[143]"GOSUBLOAD
  357. 21050 IF(A$=BK$ORA$=CHR$(20))ANDLEN(T$)>0THENPRINTBC$;:REM"[141][147]
  358. 21055 [139](A$[178]BK$[176]A$[178][199](20))[175][195](T$)[177]0[167]T$[178][200](T$,[195](T$)[171]1):[143]"GOSUBLOAD
  359. 21065 IFA$>CHR$(31)ANDA$<CHR$(96)THEN21100:REM"[141][147]
  360. 21070 [137]21015:[143]"GOSUBLOAD
  361. 21100 IFLEN(T$)+1>FLTHEN21015:REM"[141][147]
  362. 21110 T$[178]T$[170]A$:[143]"GOSUBLOAD
  363. 21115 PRINTA$;:REM"[141][147]
  364. 21120 [137]21015:[143]"GOSUBLOAD
  365. 21300 RETURN:REM"[141][147]
  366. 23000 [143] ...CHECK FOR VALID NUMERIC:[143]"GOSUBLOAD
  367. 23005 F1=0:F2=0:N=0:REM"[141][147]
  368. 23007 [139]T$[178]""[167]23090:[143]"GOSUBLOAD
  369. 23010 FORX=1TOLEN(T$):REM"[141][147]
  370. 23020 AX[178][198]([202](T$,X,1)):[143]"GOSUBLOAD
  371. 23030 IFAX<45ORAX>57THEN23100:REM"[141][147]
  372. 23060 [139]AX[178]47[167]23100:[143]"GOSUBLOAD
  373. 23070 NEXTX:REM"[141][147]
  374. 23090 N[178]1:[143]"GOSUBLOAD
  375. 23100 RETURN:REM"[141][147]
  376. 40000 [141]57500:[153]"LOAD ARE YOU SURE? (Y/N)":[143]"GOSUBLOAD
  377. 40001 GETT$:IFT$="Y"THEN40010:REM"[141][147]
  378. 40002 [139]T$[178]"N"[167]ZY[178]0:[137]700:[143]"GOSUBLOAD
  379. 40003 GOTO40001:REM"[141][147]
  380. 40010 [160]1:[160]2:[160]3:[158]64738:[143]"GOSUBLOAD
  381. 40020 REM:REM"[141][147]
  382. 40030 [143]:[143]"GOSUBLOAD
  383. 40040 REM:REM"[141][147]
  384. 45000 [143] REL PROMP:[143]"GOSUBLOAD
  385. 45005 UPDATE$="S":REM"[141][147]
  386. 45010 LC[178]0:[143]"GOSUBLOAD
  387. 45015 FC=0:C1=1:CP=0:BF=0:REM"[141][147]
  388. 45020 [141]57500:[153]"VERIFYPRESS <RETURN>VERIFY TO GET TO THE FIELD":[143]"GOSUBLOAD
  389. 45021 PRINT"YOU WANT TO SEARCH ON..";:REM"[141][147]
  390. 45025 FL[178]1:[141]21000:[143]"GOSUBLOAD
  391. 45030 GOSUB57500:PRINT"... THEN, TYPE IN WHAT YOU WANT TO":REM"[141][147]
  392. 45031 [153]"SEARCH FOR.";:[143]"GOSUBLOAD
  393. 45035 FC=FC+1:IFFC>TTHEN4000:REM"[141][147]
  394. 45037 [139]TY$(FC)[178]"Z"[167]45035:[143]"GOSUBLOAD
  395. 45040 FL=FL(FC):CY=CY(FC)-1:CX=CX(FC)-1:GOSUB57000:REM"[141][147]
  396. 45045 [141]21000:[139]TY$(FC)[179][177]"N"[167]45050:[143]"GOSUBLOAD
  397. 45047 GOSUB23000:IFN=0THENCY=CY(FC)-1:CX=CX(FC)-1:GOSUB57000:REM"[141][147]
  398. 45048 [139]N[178]0[167][129]X[178]1[164]FL(FC):[153]"TO";:[130]X:[137]45040:[143]"GOSUBLOAD
  399. 45050 IFT$<>""THEN45070:REM"[141][147]
  400. 45065 C1[178]C1[170]FL(FC):[137]45035:[143]"GOSUBLOAD
  401. 45070 SS$=T$:REM"[141][147]
  402. 45075 [139]TY$(FC)[179][177]"N"[167]CP[178]4:[137]45115:[143]"GOSUBLOAD
  403. 45080 GOSUB57500:PRINT"THE FIELD YOU ARE SEARCHING":REM"[141][147]
  404. 45081 [153]"IS A NUMBER FIELD...";:[143]"GOSUBLOAD
  405. 45082 GOSUB60000:GOSUB6000:REM"[141][147]
  406. 45085 [141]57500:[153]"YOU MAY SEARCH FOR RECORDS THAT ARE...";:[141]60000:[143]"GOSUBLOAD
  407. 45090 GOSUB60000:GOSUB57500:PRINT"EQUAL, LESS OR GREATER THAN THE":REM"[141][147]
  408. 45091 [153]"NUMBER ENTERED (E,L OR G)";:FL[178]1:[141]21000:[143]"GOSUBLOAD
  409. 45095 IFT$=""THEN45090:REM"[141][147]
  410. 45100 [139][198](T$)[177]90[167]T$[178][199]([198](T$)[171]32):[143]"GOSUBLOAD
  411. 45105 IFT$="E"THENCP=1:REM"[141][147]
  412. 45106 [139]T$[178]"L"[167]CP[178]2:[143]"GOSUBLOAD
  413. 45107 IFT$="G"THENCP=3:REM"[141][147]
  414. 45110 [139] CP[179]1[176]CP[177]3[167]45090:[143]"GOSUBLOAD
  415. 45115 OPEN 1,8,2,V1$:REM"[141][147]
  416. 45120 LS$[178][200](SS$,1):LS[178][195](SS$):[143]"GOSUBLOAD
  417. 45122 FORLR=1TOEF:INPUT#1,F1$,F2$,F3$,F4$:REM"[141][147]
  418. 45146 F$[178][202](F1$,2)[170][202](F2$,2)[170][202](F3$,2)[170][202](F4$,2):RS$[178][202](F$,C1,FL(FC)):[143]"GOSUBLOAD
  419. 45160 ON CP GOTO 45165,45175,45185,45195:REM"[141][147]
  420. 45165 [143] EQUAL:[143]"GOSUBLOAD
  421. 45170 IFVAL(RS$)=VAL(SS$)THENGOSUB15390:GOTO45210:REM"[141][147]
  422. 45172 [137]45200:[143]"GOSUBLOAD
  423. 45175 REM LESS:REM"[141][147]
  424. 45180 [139][197](RS$)[179][197](SS$)[167][141]15390:[137]45210:[143]"GOSUBLOAD
  425. 45182 GOTO45200:REM"[141][147]
  426. 45185 [143] GREATER:[143]"GOSUBLOAD
  427. 45190 IFVAL(RS$)>VAL(SS$)THENGOSUB15390:GOTO45210:REM"[141][147]
  428. 45192 [137]45200:[143]"GOSUBLOAD
  429. 45195 FORX=1TOLEN(RS$)-LS+1:REM"[141][147]
  430. 45196 [139][202](RS$,X,1)[178]LS$[167][139][202](RS$,X,LS)[178]SS$[167][141]15390:[137]45210:[143]"GOSUBLOAD
  431. 45198 NEXTX:REM"[141][147]
  432. 45200 [161]A$:[139]A$[179][177]""[167][160]1:[137]700:[143]"GOSUBLOAD
  433. 45205 NEXTLR:REM"[141][147]
  434. 45207 [160]1:[141]57500:[153]"NOT IN FILE":[141]60000:[137]700:[143]"GOSUBLOAD
  435. 45210 GOSUB57500:PRINT"<N>EXT, <S>TOP - ";:FL=1:GOSUB21000:REM"[141][147]
  436. 45215 [139]T$[178]"N"[167][141]57500:[153]"PRESS ANY KEY TO STOP SEARCH - ";:[143]"GOSUBLOAD
  437. 45216 IFT$="N"THEN45205:REM"[141][147]
  438. 45220 [139]T$[178]"S"[167][160]1:[137]700:[143]"GOSUBLOAD
  439. 45230 GOTO45210:REM"[141][147]
  440. 54000 [143] FORMAT NUMBER:[143]"GOSUBLOAD
  441. 54005 FF$=STR$(INT(F(Z)*10^ZZ+.5)/10^ZZ):LF=LEN(FF$):REM"[141][147]
  442. 54010 [129]DP[178]1[164]LF:[139][202](FF$,DP,1)[178]"."[167]54030:[130]DP:[139]ZZ[177]0[167]FF$[178]FF$[170]".":[143]"GOSUBLOAD
  443. 54020 NEXTDP:IFZZ>0THENFF$=FF$+".":REM"[141][147]
  444. 54025 [139]ZZ[178]0[167]DP$[178]"":[137]54040:[143]"GOSUBLOAD
  445. 54030 DP$=MID$(FF$,DP):DP$=DP$+LEFT$("0000000000",ZZ+1-LEN(DP$)):REM"[141][147]
  446. 54040 FF$[178][200](FF$,DP[171]1)[170]DP$:[143]"GOSUBLOAD
  447. 54045 IF VAL(FF$)>0 THEN FF$=MID$(FF$,2):REM"[141][147]
  448. 54050 [139] [195](FF$)[179]FL(Z)[167]54060:[143]"GOSUBLOAD
  449. 54055 F$(Z)=FF$:RETURN:REM"[141][147]
  450. 54060 F$(Z)[178][200](BS$,FL(Z)[171][195](FF$))[170]FF$:[142]:[143]"GOSUBLOAD
  451. 54100 REM:REM"[141][147]
  452. 54200 [143]:[143]"GOSUBLOAD
  453. 55000 RUN:REM"[141][147]
  454. 55100 [143]:[143]"GOSUBLOAD
  455. 57000 REM ...LOCATE CURSOR:REM"[141][147]
  456. 57010 [151]783,0:[143]"GOSUBLOAD
  457. 57015 POKE781,CY:REM CURSOR ROW:REM"[141][147]
  458. 57020 [151]782,CX:[143] CURSOR COLUMN:[143]"GOSUBLOAD
  459. 57030 SYS65520:REM"[141][147]
  460. 57100 [142]:[143]"GOSUBLOAD
  461. 57500 FORZ=1TO100:NEXT:REM ...LOCATE CURSOR AT BOTTOM OF SCREEN:REM"[141][147]
  462. 57502 TT[178]60:DD[178]100:SS[178]54273:[151]SS,TT:[151]SS[170]5,240:[151]SS[170]23,5:[151]SS[170]3,17:[143]"GOSUBLOAD
  463. 57505 FORAA=1TODD:NEXT:POKESS+23,0:POKESS,0:REM"[141][147]
  464. 57510 [151]783,0:[151]781,22:[151]782,0:[143]"GOSUBLOAD
  465. 57515 SYS65520:REM"[141][147]
  466. 57520 [153]BS$:[153]BS$;:[143]"GOSUBLOAD
  467. 57525 POKE783,0:POKE781,22:POKE782,0:REM"[141][147]
  468. 57530 [158]65520:[143]"GOSUBLOAD
  469. 57550 RETURN:REM"[141][147]
  470. 58000 [143] ...BUILD BLANK STRING:[143]"GOSUBLOAD
  471. 58010 FORX=1TOSW:REM"[141][147]
  472. 58015 BS$[178]BS$[170]" ":[143]"GOSUBLOAD
  473. 58020 NEXTX:REM"[141][147]
  474. 58030 [142]:[143]"GOSUBLOAD
  475. 60000 REM ...TIME DELAY LOOP:REM"[141][147]
  476. 60010 [129]Z[178]1[164]700:[143]"GOSUBLOAD
  477. 60020 NEXTZ:REM"[141][147]
  478. 60030 [142]:[143]"GOSUBLOAD
  479.